home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / programming / languages / ace-2.0.lha / MAIN.lha / prgs / hi.b < prev    next >
Encoding:
Text File  |  1994-01-10  |  394 b   |  30 lines
  1. defint a-z
  2.  
  3. screen 1,320,200,3,1
  4.  
  5. palette 0,0,0,0
  6. palette 1,0,0,1
  7. palette 2,0,1,0
  8. palette 3,0,1,1
  9. palette 4,1,0,0
  10. palette 5,1,0,1
  11. palette 6,1,1,0
  12. palette 7,1,1,1
  13.  
  14. window 1,"Hello World!  <press 'q' key to quit>",(0,0)-(320,200),,1
  15.  
  16. while inkey$<>"q"
  17.  x=rnd*80
  18.  y=rnd*25
  19.  repeat 
  20.   f=rnd*7+1
  21.   b=rnd*8
  22.  until f <> b
  23.  color f,b
  24.  locate y,x
  25.  print "Hi There!";
  26. wend
  27.  
  28. window close 1
  29. screen close 1
  30.